home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Update_Magellan_II < prev    next >
Text File  |  1998-10-23  |  5KB  |  249 lines
  1. ; Script to install Directory Opus Magellan version 
  2. ;
  3. ; Directory Opus Install Version $VER: Install-Opus 5.8  (23.10.98)
  4. ; COPYRIGHT ©1996-98 GP SOFTWARE, AUSTRALIA
  5. ; note uses Opus<Alt-Shift>5
  6. ; now installs new catalogs if they are on the disk.
  7.  
  8.  
  9.  
  10. (complete 0)
  11.  
  12. ;
  13. ;check user has Dos 2
  14. ;
  15.  
  16. (set #DOSTYPE (/ (getversion) 65536))
  17. (if
  18.     (NOT (>= #DOSTYPE 37))
  19.    (abort "Directory Opus 5 benötigt AmigaDOS 2.04 oder höher."
  20.         " Bevor Sie Opus 5 benutzen können, müssen Sie auf V2.04 oder höher upgraden.")
  21. )
  22.  
  23.  
  24. (set @default-dest "work:")
  25.  
  26. (set #Dopus_prog "DOpus5:DirectoryOpus")
  27. (set #DName "OpusMagellanII")
  28. (set #Disk_Name (cat #DName ":"))
  29. (set #Loadwb "C:LoadWb")
  30. (set #Go "Weiter")
  31. (set #Skip "Diesen Teil überspringen")
  32.  
  33.  
  34. ;
  35. ; Procedure signal
  36. ; incase Opus is re-installed. The notification on the modules
  37. ; directory can cause problems so signal Opus to turn off notifications
  38.  
  39. (procedure signal_opus
  40.  
  41.     (get_disk)
  42.     (set #Sigs (tackon #Disk_Name "dopusmsg"))
  43.     (if (exists #Sigs (noreq))
  44.         (run (cat #Sigs " DOPUS.1 \"command set notify off\""))
  45.     )
  46. )
  47.  
  48.  
  49. ;
  50. ; Procedure get_disk 
  51. ; get the correct disk for a program
  52. ;
  53.  
  54. (procedure get_disk
  55.  
  56.     (askdisk
  57.         (prompt #Title_msg
  58.             "\nBitte legen Sie die CD \""#DiskName"\" ein.")
  59.         (help "Legen Sie die CD ein, um die Installation fortzusetzen.")
  60.         (assigns)
  61.         (dest #DName)
  62.     )
  63. )
  64.  
  65.     
  66. ;
  67. ; Procedure install_core
  68. ; install the program files and new bits
  69. ; MUST HAVE A VALID DOPUSDEST ;
  70.  
  71. (procedure install_core
  72.  
  73.     (set #Title_msg "Directory Opus 5 Magellan II Update.\n\n")
  74.  
  75.     (message #Title_msg
  76.         "Hiermit können Sie Ihre exisitierende Version von"
  77.         " Directory Opus 5 auf Opus 5 Magellan II updaten.\n\n"
  78.         "Opus 5 muß dafür bereits installiert sein.\n\n"
  79.         "Nach Beendigung müssen Sie Ihren Amiga neu starten"
  80.         " und die Registriernummer der neuen Version\n"
  81.         " eintragen.\n\n")
  82.  
  83.  
  84.     (if (exists #Dopus_prog (noreq))
  85.         (
  86.         (set #Vernum (getversion #Dopus_prog))
  87.         (set #Dop_ver (/ #Vernum 65536))
  88.         (set #Dop_rev (- #Vernum (* #Dop_ver 65536) ) )
  89.         )
  90.     )
  91.    (if    ( ( OR (<> #dop_ver 5 ) (< #dop_rev 5 )) (OR (= #dop_rev 11 )))
  92.         (
  93.         (message 
  94.             "Sorry, aber Ihre Versionsnummer von DirectoryOpus ist unkorrekt\n\n"
  95.             "DirectoryOpus Version ist "#dop_ver"."#dop_rev".\n\n"
  96.             "Dieses Update läuft nicht mit dieser Version und kann"
  97.             " Ihre aktuelle Konfiguration zerstören.\n\n"
  98.             " Sie müssen Opus 5.5 installiert haben, um"
  99.             " dieses Skript nutzen zu können!\n")
  100.  
  101.  
  102.         (exit "Installation beendet!")
  103.         )
  104.  
  105.     ); else
  106.     (if    (
  107.         (get_disk)
  108.         (working #Title_msg
  109.              "Installiere die Hauptkomponenten.\n\n"
  110.              "Dies dauert einen Moment....")
  111.  
  112.         (copyfiles 
  113.             (source "OpusMagellanII:DOpus_Install/Magellan")
  114.             (dest "DOpus5:")
  115.             (infos)
  116.             (files)
  117.             (all)
  118.          (optional force)
  119.         )
  120.  
  121.         (complete 90)
  122.         
  123.     ;
  124.     ; tidyup
  125.     ;
  126.     ; make sure update module is re-initialised
  127.  
  128.         (run "C:Delete DOpus5:system/update-history FORCE")
  129.     
  130.     
  131.     ;Install the other bits
  132.         
  133.     
  134.         (copyfiles 
  135.             (source (tackon #Disk_Name "LiesMich.Magellan_II"))
  136.             (dest "DOpus5:")
  137.             (infos)
  138.             (files)
  139.         )
  140.  
  141.     ;
  142.     ; update loaddb check what they have installed
  143.     ;check if they have our load_wb installed
  144.  
  145.         (if (exists #Loadwb (noreq))
  146.             ( ; yes
  147.             (set #Vernum (getversion #Loadwb))
  148.             (set #Wb_ver (/ #Vernum 65536))
  149.             (set #Wb_rev (- #Vernum (* #Wb_ver 65536) ) )
  150.             (if (>= #Wb_ver 42) ; should be ours
  151.                 ( ; yes, then copy our loaddb as loadWB 
  152.                 (copyfiles
  153.                     (source "DOpus5:c/LoadDB")
  154.                     (dest "C:")
  155.                     (newname "LoadWB")
  156.                 )
  157.                 )
  158.             )
  159.             )
  160.         )
  161.  
  162.     ; just in case use has installed LoadDB in C:, update it
  163.  
  164.         (if    (exists "C:LoadDB" (noreq))
  165.             (copyfiles 
  166.                 (source "DOpus5:C/LoadDB")
  167.                 (dest "C:")
  168.                 (files)
  169.             )
  170.         )
  171.         )
  172.     )
  173. )
  174.     
  175.  
  176. (procedure install_complete
  177.  
  178.     (signal_opus)
  179.     (install_core)
  180. )
  181.  
  182.  
  183. ;
  184. ; Real not procedure at last! ;
  185. ;
  186.  
  187.  
  188. (if    (
  189.     (set #Title_msg "Directory Opus 5 Magellan II Installation.\n\n")
  190.     (askchoice
  191.         (prompt #Title_msg
  192.             "Bitte wählen Sie:-")
  193.         (help     "Opus 5 auf Magellan II updaten "
  194.               "Führt ein Update von Opus 5 auf Opus 5 Magellan II durch\n\n")
  195.         (choices
  196.             "Fertig"                ; 0
  197.             "Opus 5 auf Magellan II updaten ")    ; 1
  198.         (default 0)
  199.     )
  200.     
  201.     )
  202.     (
  203.     (install_complete)
  204.     (message #Title_msg
  205.         "Directory Opus 5 Magellan II registrieren\n"
  206.         "-----------------------------------------\n"
  207.  
  208.         "Um Ihre wertvolle Investition in Opus 5 zu schützen und "
  209.         "die Installation zu komplettieren, sollten Sie"
  210.         " jetzt Opus mit Ihren persönlichen Daten und der Seriennummer "
  211.         " der Installations-CD registrieren.\n\n"
  212.         "Dies wäre auch ein guter Moment, die Registrierkarte"
  213.         " auszufüllen und an Ihren Vertreiber zurückzusenden."
  214.         " Technische Unterstützung und Garantie wird nur"
  215.         " gewährt, wenn eine gültige Registrierung beim Vertrieb"
  216.         " vorliegt.")
  217.  
  218.  
  219.  
  220.     ;
  221.     ;Please please ReadMe 
  222.     ;
  223.  
  224.     (if    (askbool (prompt #Title_msg
  225.             "Alle Dinge ändern sich, einschließlich Software.\n\n"
  226.             "Weitere Änderungen sind in der Datei 'LiesMich'"
  227.             " auf der Installations-CD festgehalten.\n\n"
  228.             "Wollen Sie diese Datei jetzt lesen?\n\n")
  229.         (help "Na los, lesen Sie sie schon.")
  230.         )
  231.         (if (> (run "Sys:Utilities/MultiView DOpus5:LiesMich.Magellan_II") 0)
  232.             (if (> (run "Sys:Utilities/AmigaGuide DOpus5:LiesMich.Magellan_II") 0)
  233.                 (if (> (run "More DOpus5:LiesMich.Magellan_II") 0)
  234.                     (
  235.                     (get_disk)
  236.                     (run "Opus55_Install:More DOpus5:LiesMich.Magellan_II")
  237.                     )
  238.                 )
  239.             )
  240.         )
  241.     )
  242.     )
  243. )    
  244.  
  245. (complete 100)
  246.  
  247. (exit "Directory Opus 5 Magellan II Installationsskript beendet.")
  248.  
  249.